home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ IE User Button 1.xpl < prev    next >
Text File  |  2001-05-22  |  5KB  |  170 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Explorer\User Commands"
  5. "NAME"="User Command #1"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Name"
  9. "TEXT 2"="Status Bar"
  10. "TEXT 3"="Execute"
  11. "TEXT 4"="Icon (inactive)"
  12. "TEXT 5"="Icon (hover)"
  13. "DATA 1"="DO NOT USE! - Enter text manually"
  14. "DATA 2"="DO NOT USE! - Enter text manually"
  15. "DATA 3"="Applications (*.exe)|*.exe"
  16. "DATA 4"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.icon;*.dll;*.exe"
  17. "DATA 5"="ICO, DLL or EXE files (*.ico, *.dll, *.exe)|*.icon;*.dll;*.exe"
  18. "DESCRIPTION 1"="Internet Explorer can be configured to have user defined commands in it's toolbar and inside the "Tools" menu. A detailed description for each setting follows:"
  19. "DESCRIPTION 2"=""Name": the name of the button, can anything you want e.g. "My Cool Button"
  20. "DESCRIPTION 3"=""Status Bar": the text that is displayed inside on the status bar if you select your commnand from the "Tools" menu."
  21. "DESCRIPTION 4"=""Execute": the application that should be launched, e.g. "C:\My Cool Program\Program.exe"
  22. "DESCRIPTION 5"=""Icon (inactive)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is not touching it. If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2"."
  23. "DESCRIPTION 6"=""Icon (hover)": a filename of a *.ICO or *.DLL/*.EXE file that is used as icon for the command if you mouse is over the command (sometimes also called "Hot Icon"). If you want to use a DLL or EXE file, please enter the number of the icon after the filename e.g. "moricons.dll,2"."
  24. "DESCRIPTION 7"="Once you have the desired changes, just exit Internet Explorer (if it is already running) and start it again. To remove the button again, simply clear all fields."
  25. "DESCRIPTION 8"="IMPORTANT: The button you define here are visible to ALL users on this computer! This is *NOT* a user specifiy setting!"
  26. "AUTHOR"="TeX HeX of Xteq Systems"
  27. "CONTACTURL"="http://www.xteq.com/"
  28. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  29. "COMMENT 1"="Honda CBR600F - ABANDON ALL HOPE!"
  30. "COMMENT 2"="Found by Zoran Tasin, tashinz@bigfoot.com, reported to http://www.win2000mag.com"
  31.  
  32. 'ACHTUNG!
  33. sGUID="{B72455AE-D3DE-492a-8FE0-0EA053B85277}"
  34.  
  35.  
  36. sIEPath="HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\"
  37.  
  38. 'MenuText and ButtonText are always the same
  39. sText1="ButtonText" 'STR
  40. sText2="MenuText" 'STR
  41.  
  42. 'MenuStatusBar... 
  43. sStatText="MenuStatusBar"
  44.  
  45. 'Exec... what should be started
  46. sExec="Exec"
  47.  
  48. 'Icon and HotIcon
  49. sIcon="Icon"
  50. sIconHot="HotIcon"
  51.  
  52.  
  53. 'CLSID... always {1FBA04EE-3024-11d2-8F1F-0000F87ABD16}
  54. sCLSID="CLSID" 
  55.  
  56. 'Default Visible.. always YES
  57. sDefVis="Default Visible" 
  58.  
  59.  
  60.  
  61.  
  62. 'will be build later on
  63. sPath=""
  64.  
  65. SUB Plugin_Initialize
  66.  sPath=sIEPath & sGUID & "\"
  67.  
  68.  if RegPathExists(sPath) then
  69.     s=RegReadValue(sPath & sText1) 
  70.     Call SetUIElement(1,s)
  71.  
  72.     s=RegReadValue(sPath & sStatText) 
  73.     Call SetUIElement(2,s)
  74.  
  75.     s=RegReadValue(sPath & sExec) 
  76.     Call SetUIElement(3,s)
  77.  
  78.     s=RegReadValue(sPath & sIcon) 
  79.     Call SetUIElement(4,s)
  80.  
  81.     s=RegReadValue(sPath & sIconHot) 
  82.     Call SetUIElement(5,s)
  83.  end if
  84. END SUB
  85.  
  86. SUB Plugin_CheckData(ElementIndex)
  87. END SUB
  88.  
  89. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  90.  bDoRemove=false
  91.  
  92.  'button name
  93.  s=GetUIElement(1)
  94.  sP=sPath & sText1
  95.  if Len(s)>0 then
  96.     Call RegWriteValue(sP,s,1) 
  97.  else
  98.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  99.     bDoRemove=true
  100.  end if
  101.  
  102.  'menu name
  103.  s=GetUIElement(1)
  104.  sP=sPath & sText2
  105.  if Len(s)>0 then
  106.     Call RegWriteValue(sP,s,1) 
  107.  else
  108.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  109.     bDoRemove=true
  110.  end if
  111.  
  112.  'status text
  113.  s=GetUIElement(2)
  114.  sP=sPath & sStatText
  115.  if Len(s)>0 then
  116.     Call RegWriteValue(sP,s,1) 
  117.  else
  118.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  119.     bDoRemove=true
  120.  end if
  121.  
  122.  'exec
  123.  s=GetUIElement(3)
  124.  sP=sPath & sExec
  125.  if Len(s)>0 then
  126.     Call RegWriteValue(sP,s,1) 
  127.  else
  128.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  129.     bDoRemove=true
  130.  end if
  131.  
  132.  
  133.  'icon
  134.  s=GetUIElement(4)
  135.  sP=sPath & sIcon
  136.  if Len(s)>0 then
  137.     Call RegWriteValue(sP,s,1) 
  138.  else
  139.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  140.     bDoRemove=true
  141.  end if
  142.  
  143.  
  144.  'hot icon
  145.  s=GetUIElement(5)
  146.  sP=sPath & sIconHot
  147.  if Len(s)>0 then
  148.     Call RegWriteValue(sP,s,1) 
  149.  else
  150.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  151.     bDoRemove=true
  152.  end if
  153.  
  154.  
  155.  'do a remove or not???
  156.  if bDoRemove=false then
  157.     Call RegWriteValue(sPath & sCLSID,"{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}",1) 
  158.     Call RegWriteValue(sPath & sDefVis,"Yes",1) 
  159.  else
  160.     if RegValueExists(sPath & sCLSID) then Call RegDeleteValue(sPath & sCLSID)
  161.     if RegValueExists(sPath & sDefVis) then Call RegDeleteValue(sPath & sDefVis)
  162.     if RegPathExists(sPath) then Call RegDeletePath(sPath)
  163.  end if
  164.  
  165. END SUB
  166.  
  167. SUB Plugin_Terminate
  168. END SUB
  169.  
  170.